home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / pcsuni1.zip / VOTER404.ZIP / NEWBOOTH.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-03-24  |  3KB  |  187 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   TSTRING006(1)
  34.     String   STRING007
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     GetUser
  39.     FOpen 1, PPEPath() + "vote.CFG", 0, 0
  40.     FDefIn 1
  41.     FDGet TSTRING006(1)
  42.     TSTRING006(1) = RTrim(Left(TSTRING006(1), 29), " ")
  43.     FClose 1
  44.     INTEGER006 = TSTRING006(1)
  45.     INTEGER009 = 0
  46.     StartDisp 1
  47.     Color DefColor()
  48.     Cls
  49.     PrintLn "@X10┌────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  50.     PrintLn "@X10│··@X1EVoter++@X10···@X1CThese are Booths you have not voted on yet!@X10···@X1B(c)1996 PCS       @X10@X19│@X0F"
  51.     PrintLn "@X10└@X19────────────────────────────────────────────────────────────────────────────┘@X0F"
  52.     For INTEGER001 = 1 To INTEGER006
  53.         If (INTEGER001 <= 1) Gosub LABEL002
  54.         STRING001 = INTEGER001
  55.         STRING003 = ReadLine(PPEPath() + "VOTE" + STRING001 + ".QUE", 1)
  56.         INTEGER002 = 72 - Len(STRING003)
  57.         Gosub LABEL001
  58.         If ((INTEGER001 <= 9) && (STRING002 == "N")) Then
  59.             PrintLn "@X10│@X1C ", INTEGER001, "@X16) @X1B", STRING003 + Space(INTEGER002), "@X19│@X0F"
  60.             Dec INTEGER009
  61.         Endif
  62.         If ((INTEGER001 >= 10) && (STRING002 == "N")) Then
  63.             PrintLn "@X10│@X1C", INTEGER001, "@X16)@X1B ", STRING003 + Space(INTEGER002), "@X19│@X0F"
  64.             Dec INTEGER009
  65.         Endif
  66.         INTEGER009 = INTEGER009 + 1
  67.         If (INTEGER009 == S2I(TSTRING006(1), 10)) Then
  68.             PrintLn "@X10│···@X1AYou voted on everything, you should create a booth for everyone else!@X10····@X19│@X0F"
  69.             PrintLn "@X10└@X19────────────────────────────────────────────────────────────────────────────┘@X0F"
  70.             End
  71.         Endif
  72.     Next
  73.     PrintLn "@X10└@X19────────────────────────────────────────────────────────────────────────────┘@X0F"
  74.     Print "     @X09Would you like to @X0AVOTE@X09 on any of these @X06(@X0CY@X0E/@X0Cn@X06) "
  75.     STRING007 = ""
  76.     While (STRING007 == "") Do
  77.         Gosub LABEL003
  78.         STRING007 = Inkey()
  79.         Print " @X0A" + Chr(8), Upper(STRING007)
  80.     EndWhile
  81.     If (Upper(STRING007) == "Y") Then
  82.         Call PPEPath() + "vote.ppe"
  83.         Cls
  84.         End
  85.     Endif
  86.     :LABEL001
  87.     STRING004 = PPEPath() + "vote" + STRING001 + ".nam"
  88.     INTEGER003 = FileInf(STRING004, 4)
  89.     INTEGER004 = INTEGER003 / 50
  90.     If (INTEGER004 == 0) Then
  91.         STRING002 = "N"
  92.         Return
  93.     Endif
  94.     For INTEGER005 = 1 To INTEGER004
  95.         STRING005 = ReadLine(STRING004, INTEGER005)
  96.         If (U_Name() == Left(STRING005, Len(U_Name()))) Then
  97.             STRING002 = "Y"
  98.             Return
  99.         Endif
  100.         STRING002 = "N"
  101.     Next
  102.     Return
  103.     :LABEL002
  104.     PrintLn "@X10┌────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  105.     Return
  106.     :LABEL003
  107.     Inc INTEGER007
  108.     For INTEGER008 = 1 To 45
  109.     Next
  110.     If (INTEGER007 >= 200) End
  111.     Return
  112.  
  113. ;------------------------------------------------------------------------------
  114. ;
  115. ; Usage report (before postprocessing)
  116. ;
  117. ; ■ Statements used :
  118. ;
  119. ;    3       End
  120. ;    2       Cls
  121. ;    1       Color 
  122. ;    14      Goto 
  123. ;    22      Let 
  124. ;    2       Print 
  125. ;    9       PrintLn 
  126. ;    12      If 
  127. ;    1       FOpen 
  128. ;    1       FClose 
  129. ;    1       StartDisp 
  130. ;    1       GetUser
  131. ;    3       Gosub 
  132. ;    5       Return
  133. ;    1       Inc 
  134. ;    2       Dec 
  135. ;    1       Call 
  136. ;    1       FDefIn 
  137. ;    1       FDGet 
  138. ;
  139. ;
  140. ; ■ Functions used :
  141. ;
  142. ;    1       /
  143. ;    15      +
  144. ;    1       -
  145. ;    7       ==
  146. ;    3       <
  147. ;    5       <=
  148. ;    8       >=
  149. ;    10      !
  150. ;    8       &&
  151. ;    3       ||
  152. ;    2       Len(
  153. ;    2       Upper()
  154. ;    2       Left()
  155. ;    2       Space()
  156. ;    1       Chr()
  157. ;    1       RTrim()
  158. ;    2       U_Name()
  159. ;    1       Inkey()
  160. ;    4       PPEPath()
  161. ;    2       ReadLine()
  162. ;    1       S2I()
  163. ;    1       DefColor()
  164. ;    1       FileInf()
  165. ;
  166. ;------------------------------------------------------------------------------
  167. ;
  168. ; Analysis flags : C
  169. ;
  170. ; C - Call child PPE ■ 3
  171. ;     This is usually normal, but may be a tricky way to launch some
  172. ;     sysop-only commands.
  173. ;     ■ Search for : CALL
  174. ;
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Postprocessing report
  178. ;
  179. ;    3       For/Next
  180. ;    1       While/EndWhile
  181. ;    6       If/Then or If/Then/Else
  182. ;    0       Select Case
  183. ;
  184. ;------------------------------------------------------------------------------
  185. ;                 AEGiS Corp - Break the routines, code against the machines!
  186. ;------------------------------------------------------------------------------
  187.